home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Demos / AppMaker™ 1.5 DEMO / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_502_EachDialog < prev    next >
Encoding:
Text File  |  1992-04-08  |  2.4 KB  |  109 lines
  1. %case zbuildOrder%
  2.     %if modal%
  3.         {    z%dlogname%.p%    %}
  4.     %elsif modaloneshot%
  5.         {    z%dlogname%.p%    %}
  6.     %elsif modeless%
  7.         {    z%dlogname%.p%    %}
  8.     %end if%
  9. %case buildOrder%
  10.     %if modal%
  11.         {    %dlogname%.p%    %}
  12.     %elsif modaloneshot%
  13.         {    %dlogname%.p%    %}
  14.     %elsif modeless%
  15.         {    %dlogname%.p%    %}
  16.     %end if%
  17. %case sourcefile%
  18.     %genfile zDialog z+dlogname+.p%
  19.     %if modal%
  20.         %if not fileExists dlogname+.p%
  21.             %genfile modalDialog dlogname+.p%
  22.         %endif%
  23.     %elsif modaloneshot%
  24.         %if not fileExists dlogname+.p%
  25.             %genfile modalOneShot dlogname+.p%
  26.         %endif%
  27.     %elsif modeless%
  28.         %if not fileExists dlogname+.p%
  29.             %genfile modelessDialog dlogname+.p%
  30.         %endif%
  31.     %endif%
  32. %case zinterface%
  33.     type
  34.         Z%DlogName%        = object (CAMDialogDirector)
  35.     
  36.             { Panes in this dialog: }
  37.             %for each item gen instance%
  38.     
  39.             Procedure IZ%dlogname%%    %(aSupervisor:    CDirectorOwner);
  40.             %for each item gen zAuxiliaryMethod.decl%
  41.  
  42.             Procedure UpdateMenus;    override;
  43.     
  44.         end; {Z%DlogName%}
  45.  
  46. %case interface%
  47.     %if modal%
  48.         %for each item gen auxiliaryClass%
  49.         type
  50.             C%DlogName%        = object (Z%DlogName%)
  51.         
  52.                 Procedure I%DlogName%    (aSupervisor:    CDirectorOwner);
  53.                 Procedure UpdateMenus;    override;
  54.                 Procedure DoCommand%    %(theCommand:    longint); override;
  55.         
  56.             {protected:}
  57.                 Procedure ProviderChanged    (aProvider:        CCollaborator;
  58.                                             reason:            longint;
  59.                                             info:            univ Ptr);    override;
  60.                 %for each item gen auxiliaryMethod.decl%
  61.     
  62.             end; {C%DlogName%}
  63.     
  64.     %elsif modalOneShot%
  65.         %for each item gen auxiliaryClass%
  66.         type
  67.             C%DlogName%        = object (Z%DlogName%)
  68.         
  69.                 Procedure I%DlogName%    (aSupervisor:    CDirectorOwner);
  70.                 Procedure DoCommand%    %(theCommand:    longint); override;
  71.         
  72.             end; {C%DlogName%}
  73.     
  74.     %elsif modeless%
  75.         %for each item gen auxiliaryClass%
  76.         type
  77.             C%DlogName%        = object (Z%DlogName%)
  78.         
  79.                 Procedure I%DlogName%    (aSupervisor:    CDirectorOwner);
  80.                 Procedure UpdateMenus;    override;
  81.                 Procedure DoCommand%    %(theCommand:    longint); override;
  82.         
  83.             {protected:}
  84.                 Procedure ProviderChanged    (aProvider:        CCollaborator;
  85.                                             reason:            longint;
  86.                                             info:            univ Ptr);    override;
  87.                 %for each item gen auxiliaryMethod.decl%
  88.     
  89.             end; {C%DlogName%}
  90.     
  91.     %endif%
  92. %case usesDocDialogs%
  93.     %if modal%
  94.     %or modalOneShot%
  95.         %dlogname%,
  96.     %endif%
  97. %case instanceModeless%
  98.     %if modeless%
  99.         its%dlogname%:%        %C%dlogname%;
  100.     %endif%
  101. %case usesModeless%
  102.     %if modeless%
  103.         %dlogname%,
  104.     %endif%
  105. %case createModeless%
  106.     %if modeless%
  107.         its%dlogname% := MakeNew%dlogname% (self);
  108.     %endif%
  109.